{smcl}
{com}{sf}{ul off}{txt}{.-}
      name:  {res}<unnamed>
       {txt}log:  {res}/Users/gwf25/Desktop/claims_V.smcl
  {txt}log type:  {res}smcl
 {txt}opened on:  {res} 7 Dec 2015, 10:00:11

{com}. do "/Users/gwf25/Dropbox/research/religion/final code/claims_V.do"
{txt}
{com}. ********************************************************
. ********************************************************
. **********Claims in V. Main Experiment Sample***********
. ********************************************************
. ********************************************************
. 
. clear all
{txt}
{com}. set mem 30m
{txt}(30720k)

{com}. 
. use "/Users/gwf25/Dropbox/research/religion/final code/religion_all.dta"
{txt}
{com}. 
. //  Begin definition of variables
. 
. ***Drop subjects who thought the experiment was about religion
. gen id = _n
{txt}
{com}. drop if id == 98 | id == 176 | id == 194 | id == 383
{txt}(4 observations deleted)

{com}. 
. ***Drop subjects who incorrectly completed the priming task. This includes subjects who leave more than half the responses blank. The following subjects
. ***all left at least questions #2-#7 blank in the sentence unscrambling task. 
. drop if id==7 | id==719 | id==740 | id==762 | id==940
{txt}(5 observations deleted)

{com}. 
. ***An error led to some subjects seeing both the control and religion salient sentence unscrambling tasks. Here, we drop those subjects.
. drop if prime_diff == 1
{txt}(2 observations deleted)

{com}. 
. ***"skipped" is a dummy variable for whether subjects skip the question that asks their religion. If they skip this question, we drop them from the sample 
. ***and if not, we assign a dummy variable to indicate the treatment group (religion salient or control) that subject belongs to.
. gen skipped=0
{txt}
{com}. replace skipped=1 if  s10q15==""
{txt}(21 real changes made)

{com}. gen treatR=.
{txt}(1033 missing values generated)

{com}. replace treatR=religion if skipped==0
{txt}(1012 real changes made)

{com}. drop if skipped==1
{txt}(21 observations deleted)

{com}. 
. ***Define religion
. gen relig=.
{txt}(1012 missing values generated)

{com}. 
. ***Note: 1 = protestant or other christian, 2 = catholic, 3 = jewish, 4 = agnostic/atheist
. replace relig=1 if (s10q15=="Christian - Other (please specify below)" | s10q15=="Christian - Protestant (please specify denomination below)")
{txt}(264 real changes made)

{com}. replace relig=2 if s10q15=="Christian - Catholic"
{txt}(199 real changes made)

{com}. replace relig=3 if s10q15=="Jewish (Orthodox/Reformed/etc.)" | s10q15=="Jewish (Orthodox/Reform/etc.)"
{txt}(95 real changes made)

{com}. replace relig=4 if (s10q15=="Agnostic" | s10q15=="Atheist")
{txt}(269 real changes made)

{com}. 
. ***Drop Mormon/Othodox Christians from the sample
. drop if s10q15sp == "Greek Orthodox"
{txt}(2 observations deleted)

{com}. drop if s10q15sp == "Russian Othrodox"
{txt}(1 observation deleted)

{com}. drop if s10q15sp == "greek orthodox"
{txt}(1 observation deleted)

{com}. drop if s10q15sp == "Orthodox Christian"
{txt}(1 observation deleted)

{com}. drop if s10q15sp == "Greek Orthdox"
{txt}(1 observation deleted)

{com}. drop if s10q15sp == "christian orthodox"
{txt}(1 observation deleted)

{com}. drop if s10q15sp == "Greek Orthodox Christian"
{txt}(1 observation deleted)

{com}. drop if s10q15sp == "Russian orthodox"
{txt}(1 observation deleted)

{com}. drop if s10q15sp == "Church of Jesus Christ of Latter Day Saints"
{txt}(1 observation deleted)

{com}. drop if s10q15sp == "Greek Orthodox"
{txt}(0 observations deleted)

{com}. 
. // End of variables
. 
. *sample size
. count if relig == 1
{res}  254
{txt}
{com}. count if relig == 2
{res}  199
{txt}
{com}. count if relig == 3
{res}   95
{txt}
{com}. count if relig == 4
{res}  269
{txt}
{com}. 
. count if relig == 1 & treatR == 1
{res}  126
{txt}
{com}. count if relig == 2 & treatR == 1
{res}  101
{txt}
{com}. count if relig == 3 & treatR == 1
{res}   43
{txt}
{com}. count if relig == 4 & treatR == 1
{res}  136
{txt}
{com}. 
. count if relig == 1 & treatR == 0
{res}  128
{txt}
{com}. count if relig == 2 & treatR == 0
{res}   98
{txt}
{com}. count if relig == 3 & treatR == 0
{res}   52
{txt}
{com}. count if relig == 4 & treatR == 0
{res}  133
{txt}
{com}. 
. *atheist/agnostic comparison
. gen watch = .
{txt}(1002 missing values generated)

{com}. replace watch = 1 if s10q18sp >= 4 & s10q18sp != .
{txt}(387 real changes made)

{com}. replace watch = 0 if s10q18sp < 4
{txt}(293 real changes made)

{com}. su watch if s10q15=="Agnostic"

{txt}    Variable {c |}       Obs        Mean    Std. Dev.       Min        Max
{hline 13}{c +}{hline 56}
{space 7}watch {c |}{res}        95    .1789474    .3853417          0          1
{txt}
{com}. su watch if s10q15=="Atheist"

{txt}    Variable {c |}       Obs        Mean    Std. Dev.       Min        Max
{hline 13}{c +}{hline 56}
{space 7}watch {c |}{res}        97    .1134021    .3187308          0          1
{txt}
{com}. 
. gen lifedeath = .
{txt}(1002 missing values generated)

{com}. replace lifedeath = 1 if s10q18sp3 >= 4 & s10q18sp3 != .
{txt}(486 real changes made)

{com}. replace lifedeath = 0 if s10q18sp3 < 4
{txt}(336 real changes made)

{com}. su lifedeath if s10q15=="Agnostic"

{txt}    Variable {c |}       Obs        Mean    Std. Dev.       Min        Max
{hline 13}{c +}{hline 56}
{space 3}lifedeath {c |}{res}       116    .3362069    .4744602          0          1
{txt}
{com}. su lifedeath if s10q15=="Atheist"

{txt}    Variable {c |}       Obs        Mean    Std. Dev.       Min        Max
{hline 13}{c +}{hline 56}
{space 3}lifedeath {c |}{res}       111    .1531532    .3617683          0          1
{txt}
{com}. 
. *beliefs about experiment
. gen believe = .
{txt}(1002 missing values generated)

{com}. replace believe = 0 if s10q1 ~= "."
{txt}(1002 real changes made)

{com}. replace believe = 1 if s10q1 == "I believed that my responses would matter, exactly as the questionnaire said."
{txt}(896 real changes made)

{com}. su believe if relig ~= .

{txt}    Variable {c |}       Obs        Mean    Std. Dev.       Min        Max
{hline 13}{c +}{hline 56}
{space 5}believe {c |}{res}       817    .8984088     .302295          0          1
{txt}
{com}. gen other = .
{txt}(1002 missing values generated)

{com}. replace other = 0 if s10q3 ~= "."
{txt}(1002 real changes made)

{com}. replace other = 1 if s10q3 == "I believed that our responses would matter, exactly at the questionnaire said."
{txt}(606 real changes made)

{com}. su other if relig ~= . & s5 ~= . & s6 ~=. & e000 ~= .

{txt}    Variable {c |}       Obs        Mean    Std. Dev.       Min        Max
{hline 13}{c +}{hline 56}
{space 7}other {c |}{res}       322     .863354    .3440078          0          1
{txt}
{com}. 
{txt}end of do-file

{com}. log close
      {txt}name:  {res}<unnamed>
       {txt}log:  {res}/Users/gwf25/Desktop/claims_V.smcl
  {txt}log type:  {res}smcl
 {txt}closed on:  {res} 7 Dec 2015, 10:00:18
{txt}{.-}
{smcl}
{txt}{sf}{ul off}